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14-Sep-19 ANAL YZ. SRC 


Btitle "OBJEXE = ANALYZE/OBJECT and ANALYZE/IMAGE' 


module objexe mote POATOR ARTS: begin 


. COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
i# ALL RIGHTS RESERVED. : 
4 J 
ie THIS SOF TUARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED A AND COPIED . 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE « 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®« 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
ie TRANSFERRED. e 
:* a 
ie THe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
te CORPORAT I On. ‘ 
:* © 
is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS” * 
te SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. : 
‘e = 
' 

iteeeeeeeeenenecccnecsesseeeeuuunenenenseeseeeeeneeaeueneneceeseeseaseuenens 


‘ee 


Facility: VAX/VMS Analyze Facility, ANALYZE/OBJECT and ANAL YZE/ IMAGE 


' Abstract: The VAX/VMS Analyze facility provides the ANALYZE command, 
which allows the user to perform analyses of various aspects 
of VMS. This image supports the following categories: 


ANAL YZE/ IMAGE : 
ANALYZE /OBJECT Analyze object file contents. 


' Author: Paul C. Anagnostopoulos, Creation Date: 6 January 1981 
! Modified By: 


v03-001 DGB0052 Donald &. Blair 10-May-1984 
Establish a condition handler to save an error 
status when it 1s signaled so that we can return 


, 
i 
i 
‘ 
i 
$ 
i 
‘ 
i 
‘ 
Environment: Native, User Mode. 
i 
‘ 
i 
' 
i 
’ 
i 
‘ the status correctly upon image exit. 
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§ Tsbttl "Module Declarations’ 

: Libraries and Requires: 

library ‘starlet’; 

8 require ‘objexereq';: 

94 

95 ' 

38 ' Table of Contents: 

: ! 

3 forward routine 


anl$condition_handler, 
ani$objexe: novalue; 


=3 


ah ne ee a 4s ss a se ss sa 


oO 
WIN 


' 
External References: 


external routine 
aniSexit_with status, 
ani$image, 
anl$object, 
cli$present: adereseine, mode(general), 
Lib$establish: address ng. mode (general); 


‘ 
Own Variables: 


ak Ah eh sh eh Ah Oh ab th Ah th Ah oh Oh ah ah tl 
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ee 


Rsbttl "ANLSOBJEXE = Main Routine’ 
lee 


: Functional Description: é : 

This is the main routine for this analyze image. All we do here 
is decide which category the user has requested and dispatch to 
the appropriate routine for handling it. 


Formal Parameters: 
Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


COQOOOOCOCOCOOOOOOOO 02 OD OD: 


5 1 
5 1 
5 1 
5 1 
B2 j 
5 1 
05 1 
05 1 
05 1 
05 1 
05 1 
05 1 
05 1 
05 1 
05 1 
05 1 
1 05 1 ! Returned Value: 
; Be ' Successful status returned to VMS. 
1 05 1 Side Effects: 
1 0537 1 
1 0538 #1 !==- 
106 0539 «1 
107 0540 1 
108 0541 2 global routine anl$objexe: novalue = begin 
109 0542 2 
110 05435 2 : pies 
13 bee $ Lib$Sestablish(anl$condition_handler); 
118 0546 2 ! Just decide which category of analysis the user wants. The default is 
114 0547 2 ! ANALYZE/OBJECT. 
115 0548 2 
116 0549 2 if cli$present(describe('!MAGE')) then 
117 0550 2 anl$image() 
118 0551 2 else ‘ 
119 0552 2 anl$object(); 
120 0553 2 ‘ 
121 0554 2! All done. Just return a nice status to Mother VMS... 
122 0555 2 , 
123 0556 2 anl$exit_with_status(); 
124 0557 2 
125 0558 1 end; 


-TITLE OBJEXE OBJEXE - ANALYZE/OBJECT and ANALYZE/ IMAG 
-IDENT \V04-000\ 
-PSECT $PLITS,NOWRT ,NOEXE,2 


45 47 41 4D 49 Q0000 P.AAB: .ASCII \IMAGE\ : 
00005 -BLKB 3 

00000005 00008 P.AAA: .LONG 5 : 

00000000" 0000C -ADDRESS P.AAB : 


-EXTRN ANLOBJ$_OK, ANLOBJ$_ANYTHING 
-EXTRN ANLOBJS_DATATYPE 


Oo 


JEXE OBJEKE = ANALYZE/OBJECT and ANALYZE/IMAGE 


- i : 
v04=000 ANLSOBJEXE = Main Rout ine } fre prt SL RE ty Page 


746 ANALYZ.SRCJOBJEXE .832;1 
ANLOBJ$_ERRORCOUNT 


TRN ANLOBJS 
08 


XTRN ANLOBJ 
XTRN ANLOBJ 


-EXTRN ANLOBJ 
-EXTRN ANLOBJ 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
; 
~EXTRN ae 
$ 
$ 
$_ 
$- 
$~ 
$ 
$ 
$ 
$ 
$ 
$_ 


HDR IDEN NT 
HDRIMAGE ID 
HDRISD 
DRISDBASE 
DRISDCOUNT 
DRISDFLAGS 
DRISDGBLNAM 
DRISDNUM 
DRISDPFCDEF 
DRISDPFCSIZ 
DRISDTYPE 


H 
H 
H 
H 
H 
H 
H 
-EXTRN ANLOBJS_EXEH 
HDRISDVBN 
HDRLINKID 


EH 
XE 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
feaeat 
E 
E 
E 
E 
E 
EH 
E 
E 
E 
E 


J$_ 

43- 
«EXTRN ANLOBJ$—EXEHDRPATC 
-EXTRN ANLOBJS$— ttf pags 
-EXTRN ANLOBJ$~ PRIV 
-EXTRN ANLOBJS— NDRROPATCH 
-EXTRN ANLOBJ$~EXEHDRRWPATCH 
-EXTRN ANLOBJS$"EXEHDRSYMDBG 
-EXTRN ANLOBJS"EXEHDRSYSVER 


-~- NOV Ow UMUC 


3 6 
Jex OBJEXE = ANALYZE/OBJECT and ANALYZE/ IMAGE 18. see -19 4 23:36:17 AX-11 Bliss-32 v4.0-74 Pa 5 
vires ANL JEXE = Main Routine 14-Sep 198 7 3 746 ANALYZ.SRCJOBJEXE 832; . (3) 


«EXTRN ANLOBJS_ feed Le 
~EXTRN ANLOBJ$_EXEHD RTIME 

“EXTRN ANLOBJS~EXEHDRTYPEEXE 

“EXTRN ANLOBJ$~EXEHDRTYPEL IM 

“EXTRN ANLOBJ$~EXEHDRUSERE CO 

"EXTRN ANLOBJ$7EXEHDRXFERT 

TEXTRN ANLOBJS“EXEHDRXFER 

LEXTRN ANLOBJ$"EXEHDRXFER 

“EXTRN ANLOBJS~ EXEHEADING 

TEXTRN ANLOBJS~EXEP 

~EXTRN ANLOBJ$_ FLAG. tan 088. HEXDATA 
TEXTRN ANLOBJ$~HEXHE ADIN 

~EXTRN ANLOBJS— “HEXHEAD ING? 


: T 
-EXTRN ANLOBJ$_MASK, ANLOBJ$_OBJCPRREC 
-EXTRN ANLOBJS$_OBJD DAGRE C 

-EXTRN ANLOBJ$_ at pe ANLOBJ$_OBJEOMF LAGS 
-EXTRN ANLOBJ$_OBJEO MREC 

-EXTRN ANLOBJS— OBEOMSEVABT 


. JEOMWREC 
-EXTRN ANLOBJ$~ yk hte 
-EXTRN ANLOBJS$_OBJGSDENV 

-EXTRN ANLOBJS_ “0B GSDENUE LAGS 
-EXTRN ANLOBJ$_OBJGSDENV 

-EXTRN ANLOBJS_ OBIGSDEPM 
-EXTRN ANLOBJS$_ Seybty Ae 
-EXTRN ANLOBJ$_OBJGSDID 

-EXTRN ANLOBJS_ ~OBIGSDIDCENT 
-EXTRN ANLOBJ$_OBJGSDIDCFLAGS 


BJGTXREC 
XTRN ANLOBJ$~OBJHDRI GNREC 
-EXTRN ANLOBJ$~OBJHEADING 
XTRN ANLOBJ$"OBJLITINDEX 


6 
JEx OBJEXE = ANALYZE/OBJECT and ANALYZE/ IMAGE 1S-sep $1984 23:36:17 Ak-11 Bliss-32 V4.0-742 Page 
7o2=000 ANL SOBUEXE = Main Routine 14-Sep 5- 1986 fj 38: 746 ANALYZ.SRCJOBJEXE .832;1 : (3) 


-EXTRN ANLOBJ$_OBJLNKREC 


SRCREC 
«EXTRN ANLOBJ$_OBJSTATHEADING! 
-EXTRN ANLOBJ$_OBJSTATHEADING2 
-EXTRN ANLOBJ$_OBJSTATLINE 
-EXTRN ANLOBJ$_OBJSTATTOTAL 
-EXTRN ANLOBJ$_OBJSYMBOL 
-EXTRN ANLOBJ$_OBJSYMF LAGS 
-EXTRN ANLOBJS_ we tT rr epee 


08 
-EXTRN ANLOBJS$_ ~OBU 
-EXTRN ANLOBJS_PROT 


-EXTRN ANLOBJS_BADDATE 

-EXTRN ANLOBJS™ -BADHDRBL K COUNT 
-EXTRN ANLOBJS$_BADSEVERITY 
-EXTRN ANLOBJ$_BADSYM1ST 
-EXTRN ANLOBJ$_BADSYMCHAR 
-EXTRN ANLOBJS$~BADSYMLEN 
-EXTRN ANLOBJ$~EXEBADF I XUPEND 


-EXTRN ANLOBJS$~EXEBADF IXUPISD 
-EXTRN ANLOBJ$~ ety ty tga 
-EXTRN ANLOBJ$"EXEBADISDS1 
-EXTRN ANLOBJS~EXEBADISDTYPE 
-EXTRN ANLOBJS_EXEBADMATCH 
-EXTRN ANLOBJ$"EXEBADPATCHLEN 
-EXTRN ANLOBJ$~EXEBADOBJ 
-EXTRN ANLOBJS_EXEBADTYPE 
-EXTRN ANLOBJS~EXEBA DXF ERO 


eth 


: Routine Size: 


KE = ANALYZE/OBJECT and ANALYZE/ IMAGE 


oy JEXE = Main Routine 


45 bytes, 


000000006 00 
000000006 69 
0000G CF 
0000G CF 
0000G CF 


Routine Base: 


0000 00000 

O000v CF 9F 00002 
01 FB 00006 

0000° CF 9F 0000D 
01 FB 00011 

50 €9 00018 

0O FB 0001B 

05 11 00020 

00 FB 00022 

00 FB 00027 

04 0002C 


$CODES + 0000 


N— 
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ANLOBJ$_ ht 
AN. 08 J3_ EXEHDRLONG 


LOBY “EXE 1SDLENDZRO 
ANLOBJ$~EXE I SDLENGBL 
ANLOBJ$—EXE I SDLENPRIV 
ANLOBJ$~EXENOTNAT IVE 
ANLOBJ$~EXTRABYTES 
ANLOBJS_FIELDE :1 
ANLOBJ$~FLAGERROR 

LOBJ$S"NOTOK, ANLOBJ$_OBJBADIDCMATCH 
ANLOBJ$~O8JBADN 


R 
ANLOBJ$_OBJMHDBADRECSIZ 
ANLOBJ$_OBJMHDBADSTRLVL 
ANLOBJ$_OBJMHDMISSING 
ani 0BJ$_OBJNONT IRCMD 
ANLOBJ$_OBJNOPSC 
ANLOBJ$~OBJNULLREC 

ANLOBJ$_OBJPOSPACE 
ANLOBJ$_OBJPROMI NMAX 
ANLOBJ$_OBJPSCABSLEN 
ANLOBJ$_OBJRECTOOBIG 
ANLOBJ$_OBJTIRRES 
ANLOBJ$_OBJUNDEF ENV 


SOBJECT 
CLISPRESENT, LIBSESTABLISH 
SCODES,.NOWRT,2 


ANLSOBJEXE, Save nothing : 0541 
ANL$CONDIT{ON HANDLER > 0544 
#1, LIBSESTABCISH : 
P.AAA : 0549 
#1, CLISPRESENT : 
40, ANL$ IMAGE : 0550 
#0, ANLSOBJEC > 0552 
#0, ANLSEXIT COITH. STATUS : Seee 


Vou=060 
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ANLSOBJEKE = Main Routine 


§ 6 
15-Sep-1984 
14-Sep-1984 


7:33:14 
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Rsbttl "ANLSCONDITION_HANDLER = Save the ANLSWORST_ERROR status’ 


Functional Description: 

There are 2 ways that errors are handled in ANALYZE/OBJ and 
ANALYZE/IMAGE. In general, ANLSFORMAT_ERROR is called whenever 
an error is discovered in the odject/sSoge file. LIBSSIGNAL 

is called for most other sorts of errors. In order to keep 
track of the worst error that has occurred, since there are 2 
error reporting mechanisms, we need to save the worst error 
status both in this condition handler (reievant for calls to 


WMWEwN—O 0O@~ 


i 
i 
i 
i 
i 
' 
i 
; 
} LibSsignal) and in ani$format_error. 
i Formal Paramters: 

’ signal_args = Address of signal argument List 
mechanism_args = Address of mechanism array 

i Implicit Inputs: 

} none 

i Returned Value: 

ss$_resignal Continue to search call frames. 
i 
i 
' 


Side Effects: ; ; : 
: ani$worst_error is updated with highest severity error. 


global routine ani$condition_handler (signal_args, mechanism_args) = begin 


WEAN =O O@NO LFW OOOO Uw —0O0@ 
ODO OOOO DO O ODD WW WWW WWW NIN NS NN SNA AAPA OCAAAS 
SSLSESRIAN SSS SARA S SSIS ARAN —SSSISAFSERLIS 


lelelelelelelelelelelelelelelolelelealalealelelelelelelelelelealelelelel oe] a] 
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map 
signal_args: ref bblock, ! Address of signal argument List. 
mechanism_args: ref bblock; ! Address of mechanism argument List 
external 
an($worst_error; ! the worst error status we've found so far 
local ; 
code: bblock Clong]; ! Condition code (longword) 
code = .si ay Pook Cchf$l_sig_name]; ! Get condition code 
7? if severity level (.code) gtr : 
8 0600 severity_Tevel (.anl$worst_error) ! If higher than watermark 
. eed then anl$worst_error = .code; { then set new worst error 
1 0608 return ss$_resignal; 
¢ 0604 
0605 end; 
-EXTRN ANLSWORST_ERROR 
000C 00000 -ENTRY ANLSCONDITION_HANDLER, Save R2,R3 : 0586 
29 04 AC DO 00002 MOVL SIGNAL_ARGS, RO ; 0598 
5 04 ag DO 00006 MOVL 4(RO), CODE : 
33 53 DO QOO00A MOVL aa TMP CODE ; 0599 
51 50 0 00 EF 0000D ExT2v #0, #3, TAP_CODE, R1 : 


~& 
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50 50 1 Oo €F pots ExTZ #0, #1, TMP_CODE, RO 
0 C4 1 MULL #4, RO 
1 g F 1A SUBL , a) 
F 50 0038 move NLSWORST aptnn ys" CODE 
52 50 : EF 000 EXT2V 5:3 en ope. 
0 1 EF A ExTZV at ae “CODE: 
C4 38 f MULL 3° 
0 C2 O38 SUBL 
03 Ae 9 00 MOVAB wah 
51 D1 00039 CMPL R1, a 
9 15 0003¢ BLES 1 
0000G CF 0 000 4 MOVL cons a seers ERROR 
50 0918 BF 3C 00043 18 MOV2WL #2328, 
4 00048 eT 
Routine Size: 73 bytes, Routine Base: SCODES + 002D 
; 176 Dens 1 
175 0607 0 end eludom 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 16 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, aie ed Teng be} t 
SCODES 118 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eweose see Symbols woceeeon Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: (SYSLIBISTARLET.L32;1 9776 12 0 581 00:01.0 
; COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:OBJEXE/OBJ=OBJ$:OBJEXE MSRC$:OBJEXE /UPDATE = (ENH$: OBJE XE) 
; Size: 118 - + 16 data bytes 
3 Run Time: 


; Elapsed Time: 


00:09. 


0600 


ss 
o 
oO 
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; Lines/CPU Min: 
Lexenes/CPU-Rin: ;" 
Memor 
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